library(mdsr)
library(readr)
library(dplyr)
# Reading in Terrorism 
terrorism <- read.table(unz("globalterrorismdb_0718dist.csv.zip", "globalterrorismdb_0718dist.csv"), nrows=181692, header=T, fill =T, quote="\"", sep=",")
econData <- read.csv("WEO_Data.csv")
head(terrorism)
head(econData)
terrorism %>%
  group_by(country_txt) %>%
  summarise(count = n()) %>%
  arrange(desc(count))
terrorism %>%
  sample(5000) %>%
  ggplot(aes(x = longitude, y = latitude)) +
  geom_point()

terrorism %>%
  filter(country_txt == "United States") %>%
  filter(longitude < 0) %>%
  filter(nkillus > 0) %>%
  ggplot(aes(x = longitude, y = latitude)) +
  geom_point(aes(color = nkillus))
terrorism %>%
  inner_join()
LS0tCnRpdGxlOiAiU1RBVCAzODAgRmluYWwgUHJvamVjdCIKYXV0aG9yOiAiR3JlZyBXZXN0ZmFsbCBhbmQgVEogU2NoYWVmZmVyIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0KIyBMaWJyYXJpZXMKbGlicmFyeShtZHNyKQpsaWJyYXJ5KHJlYWRyKQpsaWJyYXJ5KGRwbHlyKQpgYGAKCgpgYGB7cn0KIyBSZWFkaW5nIGluIFRlcnJvcmlzbSAKdGVycm9yaXNtIDwtIHJlYWQudGFibGUodW56KCJnbG9iYWx0ZXJyb3Jpc21kYl8wNzE4ZGlzdC5jc3YuemlwIiwgImdsb2JhbHRlcnJvcmlzbWRiXzA3MThkaXN0LmNzdiIpLCBucm93cz0xODE2OTIsIGhlYWRlcj1ULCBmaWxsID1ULCBxdW90ZT0iXCIiLCBzZXA9IiwiKQpgYGAKCmBgYHtyfQplY29uRGF0YSA8LSByZWFkLmNzdigiV0VPX0RhdGEuY3N2IikKYGBgCgoKCmBgYHtyfQpoZWFkKHRlcnJvcmlzbSkKaGVhZChlY29uRGF0YSkKYGBgCgoKYGBge3J9CnRlcnJvcmlzbSAlPiUKICBncm91cF9ieShjb3VudHJ5X3R4dCkgJT4lCiAgc3VtbWFyaXNlKGNvdW50ID0gbigpKSAlPiUKICBhcnJhbmdlKGRlc2MoY291bnQpKQpgYGAKCmBgYHtyfQp0ZXJyb3Jpc20gJT4lCiAgc2FtcGxlKDUwMDApICU+JQogIGdncGxvdChhZXMoeCA9IGxvbmdpdHVkZSwgeSA9IGxhdGl0dWRlKSkgKwogIGdlb21fcG9pbnQoKQpgYGAKCmBgYHtyfQp0ZXJyb3Jpc20gJT4lCiAgZmlsdGVyKGNvdW50cnlfdHh0ID09ICJVbml0ZWQgU3RhdGVzIikgJT4lCiAgZmlsdGVyKGxvbmdpdHVkZSA8IDApICU+JQogIGZpbHRlcihua2lsbHVzID4gMCkgJT4lCiAgZ2dwbG90KGFlcyh4ID0gbG9uZ2l0dWRlLCB5ID0gbGF0aXR1ZGUpKSArCiAgZ2VvbV9wb2ludChhZXMoY29sb3IgPSBua2lsbHVzKSkKYGBgCgpgYGB7cn0KdGVycm9yaXNtICU+JQogIGlubmVyX2pvaW4oKQpgYGAKCgoKCgoKCgoKCgoKCgoK